home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Online / Tango / Install_Tango next >
Text File  |  2002-03-12  |  7KB  |  207 lines
  1. ;Tango 1.0 installation script
  2. (set #intro (cat "\n\nWelcome to Tango\n\nCopyright © 1999-2001\n\nSören Forsberg\n") )
  3. (set #info (cat "\n\nThis installer will\n\ninstall Tango in Samba:\n\na new directory 'Tango' will be created.\n\n") )
  4. (message #intro)
  5. (welcome) 
  6. (message #info)
  7.  
  8. (if (= (exists "samba:tango") 0 )  (makedir "Samba:Tango") )
  9.  
  10. ;copy main
  11. (copyfiles (source "Tango")   (dest "samba:Tango")    (infos) (all))
  12.  
  13. ;copy drawer icon
  14. (copyfiles    (prompt "Copying drawer icon")    (source "Tango.info")    (dest "Samba:") )
  15.  
  16. ;copy catalogs
  17. ;(copyfiles (source "Locale")   (dest "sys:Locale")    (infos) (all))
  18.  
  19. (set #catnofind "Can not find this catalog in this  archive.\n This probably means that the selected catalog for\nTango isn't updated\n\nIf you want to make locales,\nse the guide for information.\n\n")
  20. (set #whatcat "\nTango has no internal catalog.\nSelect the Language catalog you wish to install.\nThat language has to be installed in Prefs:Locales.\n\nIf you wish to make locales read the documentation.\n* languages are updated.\n ")
  21. (set #whatcathelp "If your language is not among the choises,\nYou must choose another language.")
  22.  
  23.  
  24.  
  25. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  26. (set lan 0)
  27. (if (= "english" lanfound) (set lan 0)) (if (= "deutsch"  lanfound) (set lan 1))
  28. (if (= "svenska" lanfound) (set lan 2)) (if (= "español" lanfound) (set lan 3)) 
  29. (if (= "russian" lanfound) (set lan 4)) (if (= "français" lanfound) (set lan 5)) 
  30. (if (= "suomi" lanfound) (set lan 6)) 
  31. (set #English    "English")  (set #Deutsch    "Deutsch")
  32. (set #Svenska    "Svenska")  (set #Español    "Español")
  33. (set #Russian    "Russian")  (set #Français    "Français")  
  34. (set #Suomi    "Suomi")  
  35.  
  36. (if (> (exists ("ENV:i.høld.0")) 0)   (set l0 (getenv "ENV:i.høld.0")) ) 
  37. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) )
  38. (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  39. (run "delete env:i.høld.#?")
  40. (set catalog (askchoice (choices  "English*" "Deutsch" "Svenska*" "Español" "Russian*" "Français*" "Suomi*")            
  41.                         (prompt #whatcat )
  42.                         
  43.                     (help   #whatcathelp)
  44.                         (default lan)
  45.              )
  46. )
  47.  
  48. (if (= catalog 0)  (set #lcat #English))  
  49. (if (= catalog 1)  (set #lcat #Deutsch))
  50. (if (= catalog 2)  (set #lcat #Svenska))  
  51. (if (= catalog 3)  (set #lcat #Español))  
  52. (if (= catalog 4)  (set #lcat #Russian))  
  53. (if (= catalog 5)  (set #lcat #Français))  
  54. (if (= catalog 6)  (set #lcat #Suomi))  
  55.  
  56. (if (<> #lcat "N/A")
  57.  (
  58.       (if (> (exists (cat "Catalogs/" #lcat "/tango.catalog")) 0)
  59.       (
  60.         (
  61.          (if (< (exists "Samba:Tango/Catalogs") 2) (makedir "Samba:Tango/Catalogs") )
  62.          (if (< (exists (cat "Samba:Tango/Catalogs/" #lcat)) 2) (makedir (cat "Samba:Tango/Catalogs/" #lcat)) )
  63.          (copyfiles (source (cat "Catalogs/" #lcat"/tango.catalog")) (dest (cat "Samba:Tango/Catalogs/" #lcat)))
  64.         )
  65.   
  66.  
  67.       )
  68.  
  69.  
  70.   (message (cat "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  71.   )
  72.  
  73.  
  74. ); End if Catalog dir
  75.   (message (cat "Error:" "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  76. ); 
  77.  
  78. (if (exists "c:defaultbrowser")
  79.         (message "OBSOLETE!\n\nYou have defaultbrowser installed.\n\n"
  80.         "Defaultbrowser is discontinued and will be removed \n"
  81.         "from your system. Tango now uses openurl instead.")
  82. )
  83. (run "delete c:defaultbrowser")
  84. (run 'delete "sys:prefs/default browser.info"')
  85. (run "delete envarc:defaultbrowser")
  86.  
  87. (set #isthere (cat "You have Tango installed."))
  88. (run "status >ENV:Tango_inst com samba:tango/tango")
  89. (if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
  90. (if (<> tangoon "") (set #isthere (cat "You have Tango installed and running.\nPlease shutdown Tango before proceeding. ")) )
  91.  
  92. (if (exists "ENV:tango.prefs")
  93.     (
  94.         (message (cat #isthere"\n\n"
  95.         "All librarys and locales\n"
  96.         "will now be flushed."))
  97.         (run "avail flush > NIL:")
  98.  
  99.         
  100.     )
  101. )
  102.  
  103. (run "status >ENV:Tango_inst com samba:tango/tango")
  104. (if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
  105. (if (<> tangoon "") (message "You didn't shutdown Tango.\nBefore you start Tango you should:\nReboot, make 'Avail flush'\nor run the installer again!"))
  106.  
  107.  
  108. ;BEGIN Share 1.0 installation script
  109. (set osver (/ (getversion "LIBS:version.library") 65536))
  110. (if (= osver 44) (set workbench "3.5")) 
  111.  
  112.  
  113. (set #share (cat "\n\nThe new Share utility will now be installed.\n\nThis will install Share in C:\nand if available\n" #lcat ".catalog in LOCALE:catalogs/" #lcat"\n\n") )
  114.  
  115. (message #share)
  116.  
  117. ;copy share
  118. (copyfiles
  119.     (prompt "Copying share")
  120.     (source "Tango/Extras/Share/Share")
  121.     (dest "C:")
  122. )
  123. (copyfiles
  124.     (prompt "Copying icon")
  125.     (source "Tango/Extras/Share/Share.info")
  126.     (dest "C:")
  127. )
  128.  
  129.  
  130.  
  131. (if (> osver 44)
  132.     (if
  133.         (askbool
  134.             (prompt "AmigaOS 3.5 detected.\n\nWould you like to add Share to the tools-menu?\nThis will install a 'Share directory'.\nShare.menu will be added to WBStartup\n")
  135.             (help "Really?.")
  136.             (choices "Install" "Don't install")
  137.             (default 1)
  138.             )
  139.         (
  140.             (copyfiles
  141.                     (prompt "Copying menu")
  142.                     (source "Tango/Extras/Share/OS3_5/WBStartup/share.menu")
  143.                     (dest "sys:wbstartup/")
  144.             )
  145.             (copyfiles
  146.                     (prompt "Copying menu icon")
  147.                     (source "Tango/Extras/Share/OS3_5/WBStartup/share.menu.info")
  148.                     (dest "sys:wbstartup")
  149.             )
  150.             (copyfiles
  151.                     (prompt "Copying menu script")
  152.                     (source "Tango/Extras/Share/OS3_5/S/share.WB")
  153.                     (dest "S:")
  154.             )
  155.             (if
  156.                 (askbool
  157.                     (prompt "Would you like to add the menu now?\nElse the menu will be available after reboot.\n")
  158.                     (help "Really?.")
  159.                     (choices "Yes" "No")
  160.                     (default 1)
  161.                 ) 
  162.                     (run (cat "run sys:rexxc/rx sys:wbstartup/share.menu") )
  163.             )    
  164.         )
  165.     )
  166. )
  167.  
  168.       (if (> (exists (cat "Catalogs/" #lcat "/share.catalog")) 0)
  169.       
  170.         (
  171.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "Locale:Catalogs/" #lcat)) )
  172.          (copyfiles (source (cat "Catalogs/" #lcat "/share.catalog")) (dest (cat "Locale:Catalogs/" #lcat)))
  173.         )
  174.   
  175.         (message (cat "\nCatalogs/" #lcat "/share.catalog\n\n" #catnofind))
  176.       )
  177.  
  178.  
  179. ;END Share 1.0 installation script
  180.  
  181. (set donow (askoptions (choices "Tango readme (text)" "Tango guide  (html)" "Open Tango drawer (OS3.5)" "Launch Tango" )
  182.               (prompt "\nInstallation is complete!\n\nSelect what to do now.\n")
  183.                     (help   "")
  184.                   (default 2)
  185.       )
  186. )
  187.  
  188. (if (IN donow 0) (run "run sys:utilities/multiview samba:tango/readme" ))
  189.  
  190.  
  191. (if (IN donow 1)
  192.     (if (> (exists ("c:openurl")) 0) (run "openurl file://localhost/samba:tango/guide.html"))
  193. )
  194.  
  195. ;RX "ADDRESS DOPUS.1;'lister new samba:'"
  196. ;RX "ADDRESS WORKBENCH;'ICON WINDOW root NAMES Samba: OPEN'" funkar inte då ikonen inte är på wb
  197.  
  198. (if (IN donow 2)
  199.       (run "Sys:rexxc/RX opendrawer.rexx")
  200.   )
  201.  
  202. (if (IN donow 3)
  203.       (run "samba:tango/tango" )
  204.   )
  205.  
  206. (exit (quiet))
  207.